home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW etc / MPW-GM / MPW / Scripts / ProjectMenu < prev    next >
Encoding:
Text File  |  1994-11-18  |  1.1 KB  |  47 lines  |  [TEXT/MPS ]
  1. #    ProjectMenu - create the Project menu
  2. #
  3. #    Usage:
  4. #        ProjectMenu
  5. #
  6. #    ProjectMenu creates the menu shown below.
  7. #
  8. #        Project
  9. #
  10. #          Check In…
  11. #          Check Out…
  12. #          ----------------
  13. #          New Project…
  14. #          Mount Project…
  15. #          Set Project…
  16. #          ----------------
  17. #          Compare Active…
  18. #          Merge Active…
  19. #
  20. #    
  21. #    © Copyright Apple Computer, Inc. 1994
  22. #    All rights reserved.
  23.  
  24. Set Echo 0
  25. Set Exit 0
  26. DeleteMenu Project ≥ Dev:Null
  27.  
  28. #    Create the Project menu
  29.  
  30. AddMenu Project 'Check In…' 'CheckIn -w ∑∑ "{Worksheet}"'
  31. AddMenu Project 'Check Out…' 'CheckOut -w ∑∑ "{Worksheet}"'
  32. AddMenu Project "(-" ""
  33. AddMenu Project 'New Project…' 'NewProject -w ∑∑ "{Worksheet}"'
  34. AddMenu Project 'Mount Project…' '(MountProject…) ∑∑ "{Worksheet}"'
  35.  
  36. AddMenu Project 'Set Project…' ∂
  37.     '(if "`Project -q`"; Project "`GetListItem -s -r 10 ∂
  38.       ∂`MountProject -pp -s -r∂` -d "∂`Project -q∂`" ∂
  39.      -m "Select a new current project:" -q`"; else; ∂
  40.       Alert "There are currently no projects mounted."; end) ∑ Dev:Null'
  41.  
  42. AddMenu Project "(-" ""
  43. AddMenu Project 'Compare Active…' 'CompareRevisions "{Active}" ∑∑ "{Worksheet}"'
  44. AddMenu Project 'Merge Active…' 'MergeBranch "{Active}" ∑∑ "{Worksheet}"'
  45.  
  46. Exit 0
  47.